object Form1: TForm1 Left = 207 Top = 106 Width = 451 Height = 350 Caption = 'FreeWay FTP' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Menu = MainMenu1 OnClose = FormClose OnCreate = FormCreate OnResize = FormResize PixelsPerInch = 96 TextHeight = 16 object DirectoryBMP: TImage Left = 208 Top = 80 Width = 17 Height = 9 Picture.Data = {} Visible = False end object FileBMP: TImage Left = 208 Top = 96 Width = 17 Height = 9 Picture.Data = {} Visible = False end object Button1: TSpeedButton Left = 208 Top = 144 Width = 25 Height = 33 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} Layout = blGlyphRight NumGlyphs = 2 OnClick = Button1Click end object Button2: TSpeedButton Left = 208 Top = 192 Width = 25 Height = 33 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333333333333333333333333333FF333333333333 3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00 E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0 E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0 E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00 000033333373FF77777733333330003333333333333777333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 OnClick = Button2Click end object Panel1: TPanel Left = 0 Top = 0 Width = 443 Height = 57 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object SpeedButton1: TSpeedButton Left = 8 Top = 8 Width = 40 Height = 41 Hint = 'Rename file' Caption = 'Rename' Font.Color = clBlack Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555 055555555555FF5575F555555550055030555555555775F7F7F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0 305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000 30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550 3055577777555557F7F5550005555559995555777555555777550000} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 48 Top = 8 Width = 40 Height = 41 Hint = 'Create directory' Caption = 'MkDir' Font.Color = clBlack Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555555555555555555555555555555 555555555555555555555555555555555555555FFFFFFFFFF555550000000000 55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8 B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000 000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0 555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555 55555575FFF75555555555700007555555555557777555555555555555555555 55555555555555555555555555555555555555555555555555550000} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 88 Top = 8 Width = 40 Height = 41 Hint = 'Delete file or directory' Caption = 'Delete' Font.Color = clBlack Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550 305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0 B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000 B0557777FF577777F7F500000E055550805577777F7555575755500000555555 05555777775555557F55550005555555055555777555555575550000} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 304 Top = 8 Width = 40 Height = 41 Hint = 'Abort transfer' Caption = 'Abort' Enabled = False Font.Color = clBlack Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 33333337777FF377FF3333993370739993333377FF373F377FF3399993000339 993337777F777F3377F3393999707333993337F77737333337FF993399933333 399377F3777FF333377F993339903333399377F33737FF33377F993333707333 399377F333377FF3377F993333101933399377F333777FFF377F993333000993 399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399 99333773FF777F777733339993707339933333773FF7FFF77333333999999999 3333333777333777333333333999993333333333377777333333} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object SpeedButton5: TSpeedButton Left = 128 Top = 8 Width = 40 Height = 41 Hint = 'Change working directory' Caption = 'ChDir' Font.Color = clBlack Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8 B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8 B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB 0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000 55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05 55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05 55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555 5555575FFF7555555555570000755555555555777755555555550000} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton5Click end object SpeedButton6: TSpeedButton Left = 168 Top = 8 Width = 40 Height = 41 Hint = 'Refresh directory list' Caption = 'Dir list' Font.Color = clBlack Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333 333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300 300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333 333337F373F773333333303330033333333337F3377333333333303333333333 333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333 333337777F337F33333330330BB00333333337F373F773333333303330033333 333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000 333377777F77377733330BBB0333333333337F337F33333333330BB003333333 333373F7733333333333300333333333333337733333333333330000} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton6Click end object SpeedButton7: TSpeedButton Left = 208 Top = 8 Width = 40 Height = 41 Hint = 'View text file' Caption = 'View' Font.Color = clBlack Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton7Click end object SpeedButton8: TSpeedButton Left = 264 Top = 8 Width = 40 Height = 41 Hint = 'Close connection' Caption = 'Close' Font.Color = clBlack Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333FFF33FF333FFF339993370733 999333777FF37FF377733339993000399933333777F777F77733333399970799 93333333777F7377733333333999399933333333377737773333333333990993 3333333333737F73333333333331013333333333333777FF3333333333910193 333333333337773FF3333333399000993333333337377737FF33333399900099 93333333773777377FF333399930003999333337773777F777FF339993370733 9993337773337333777333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} Layout = blGlyphTop NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton8Click end object RadioGroup1: TRadioGroup Left = 352 Top = 8 Width = 81 Height = 41 HelpContext = 49 Caption = 'Mode' Columns = 2 Font.Color = clBlack Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ItemIndex = 0 Items.Strings = ( 'Bin' 'Asc') ParentFont = False TabOrder = 0 end end object ComboBox1: TComboBox Left = 24 Top = 72 Width = 177 Height = 24 HelpContext = 50 ItemHeight = 16 TabOrder = 1 OnChange = ComboBox1Change OnEnter = ListBox1Enter end object ComboBox2: TComboBox Left = 240 Top = 72 Width = 177 Height = 24 HelpContext = 50 ItemHeight = 16 TabOrder = 2 OnChange = ComboBox2Change OnEnter = ListBox2Enter end object ListBox1: TListBox Left = 24 Top = 136 Width = 177 Height = 105 HelpContext = 52 ItemHeight = 16 Style = lbOwnerDrawFixed TabOrder = 3 OnDblClick = ListBox1DblClick OnDrawItem = ListBox1DrawItem OnEnter = ListBox1Enter OnMeasureItem = ListBox1MeasureItem end object ListBox2: TListBox Left = 240 Top = 136 Width = 177 Height = 105 HelpContext = 52 ItemHeight = 16 Style = lbOwnerDrawFixed TabOrder = 4 OnDblClick = ListBox2DblClick OnDrawItem = ListBox2DrawItem OnEnter = ListBox2Enter OnMeasureItem = ListBox2MeasureItem end object StatusBar1: TStatusBar Left = 0 Top = 285 Width = 443 Height = 19 Panels = <> SimplePanel = True end object Edit1: TEdit Left = 24 Top = 248 Width = 177 Height = 24 HelpContext = 53 Color = clBtnFace TabOrder = 6 end object Edit2: TEdit Left = 240 Top = 248 Width = 177 Height = 24 HelpContext = 53 Color = clBtnFace TabOrder = 7 end object Edit3: TEdit Left = 24 Top = 104 Width = 177 Height = 24 HelpContext = 51 Color = clBtnFace TabOrder = 8 end object Edit4: TEdit Left = 240 Top = 104 Width = 177 Height = 24 HelpContext = 51 Color = clBtnFace TabOrder = 9 end object MainMenu1: TMainMenu Left = 48 Top = 40 object Server1: TMenuItem Caption = 'Server' ShortCut = 0 object Enabled1: TMenuItem Caption = 'Enabled' Checked = True HelpContext = 7 ShortCut = 0 OnClick = Enabled1Click end object Statistics1: TMenuItem Caption = 'Status' HelpContext = 56 ShortCut = 0 OnClick = Statistics1Click end object Configure1: TMenuItem Caption = 'Configure...' ShortCut = 0 OnClick = Configure1Click end end object Client1: TMenuItem Caption = 'Client' ShortCut = 0 object Dialog1: TMenuItem Caption = 'Dialog...' HelpContext = 57 ShortCut = 0 OnClick = Dialog1Click end object Configure2: TMenuItem Caption = 'Configure...' ShortCut = 0 OnClick = Configure2Click end end object Tools1: TMenuItem Caption = 'Tools' ShortCut = 0 object DNSLookup1: TMenuItem Caption = 'DNS Lookup' HelpContext = 10 ShortCut = 0 OnClick = DNSLookup1Click end end object Help1: TMenuItem Caption = 'Help' ShortCut = 0 object Contents1: TMenuItem Caption = 'Contents' ShortCut = 0 OnClick = Contents1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object About1: TMenuItem Caption = 'About' ShortCut = 0 OnClick = About1Click end end end object ServerSocket1: TServerSocket Address = '0.0.0.0' Port = '21' Protocol = 'tcp' OnAccept = ServerSocket1Accept OnDisconnect = ServerSocket1Disconnect OnRead = ServerSocket1Read OnWrite = ServerSocket1Write Left = 16 Top = 40 end object ServerSocket2: TServerSocket Address = '0.0.0.0' Port = '20' Protocol = 'tcp' MaxConnections = 1 ClientOptions = [csoRead] OnAccept = ServerSocket2Accept OnDisconnect = ServerSocket2Disconnect OnRead = ServerSocket2Read Left = 336 Top = 40 end object ClientSocket1: TClientSocket Address = '0.0.0.0' Port = '21' Protocol = 'tcp' TimeOut = 40 OnConnect = ClientSocket1Connect OnTimeOut = ClientSocket1TimeOut OnRead = ClientSocket1Read Left = 368 Top = 40 end object ClientSocket2: TClientSocket Address = '0.0.0.0' Port = '21' Protocol = 'tcp' TimeOut = 40 OnConnect = ClientSocket2Connect OnTimeOut = ClientSocket1TimeOut OnRead = ClientSocket2Read Left = 400 Top = 40 end end